program pokus;
var a,s,k,x:string;
   i,j,p:integer;

begin
   writeln('kod');
   readln(k);
   writeln('vstup');
   readln(s);

   for i:=1 to length(s) do
             begin
             j:=0;
             repeat
             j:=j+1;
             p:=0;
             if s[i]=k[j] then begin
                str(j,a);
                p:=1
              end;
             until (p=1) or (j=length(k));
             if p=1 then x:=x+a   else x:=x+s[i];
             end;
   writeln(x);

   readln;
   end.

end.